home *** CD-ROM | disk | FTP | other *** search
/ Publication 6 / Publication_06_19xx_High-Tech_de_Side_B.d64 / top agents (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  28KB  |  733 lines
  1. 0 x=rnd(-ti)
  2. 1 print"[147]":poke53281,0:poke53280,0:printchr$(14)
  3. 2 v=53248:poke2040,11:poke2041,13:poke2042,14:poke2043,15
  4. 5 dims(5,62),c$(69),c(69),na(69),x(69),y(69),d(69,4),ri(69),h(69)
  5. 6 s=1:c=int(68*rnd(1))+1:r=c+35:ifr>69then6:
  6. 7 fort=1to69:h(t)=int(rnd(1)*4)+4:next:sd=1:ti$="000000"
  7. 8 deffnx(x)=int(val(ti$)^.53435)
  8. 10 :forn=0to62:readq:poke11*64+n,q:next
  9. 11 :forn=0to62:readq:poke13*64+n,q:next
  10. 12 :forn=0to62:readq:poke14*64+n,q:next
  11. 13 :forn=0to62:readq:poke15*64+n,q:next
  12. 100 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13. 101 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,128,0,0
  14. 102 data0,0,0,0,0,0,0,0,0,85,1,84,127,87,244,106,254,164,127,171,244,127,255
  15. 103 data208,106,254,144,127,171,208,127,255,244,106,254,164,127,171,244,85
  16. 104 data253,84,64,84,0,64,0,0,64,0,0,64,0,0,64,0,0,64,0,0,64,0,0
  17. 105 data0,0,0,0,0,0,0,0,0,64,85,84,85,255,244,127,170,144,106,255,208,127,255
  18. 106 data208,127,170,144,106,255,244,127,255,244,127,170,164,106,255,244,127
  19. 107 data85,84,85,0,0,64,0,0,64,0,0,64,0,0,64,0,0,64,0,0,64,0,0
  20. 108 data0,0,0,0,0,0,0,0,0,85,84,0,127,253,84,106,171,244,127,254,164,127,255
  21. 109 data244,106,171,244,127,254,164,127,255,244,106,171,244,127,254,164,85
  22. 110 data87,244,64,1,84,64,0,0,64,0,0,64,0,0,64,0,0,64,0,0,64,0,0
  23. 120 c$(1)="[194]oston      ":c(1)=2:x(1)=251:y(1)=171
  24. 122 c$(2)="[200]artford    ":c(2)=1:x(2)=245:y(2)=178
  25. 123 c$(3)="[206][197][215] [217][207][210][203]    ":c(3)=2:x(3)=238:y(3)=184
  26. 124 c$(4)="[206]ewark      ":c(4)=1:x(4)=237:y(4)=181
  27. 125 c$(5)="[193]lbany      ":c(5)=1:x(5)=238:y(5)=170
  28. 126 c$(6)="[205]ontreal    ":c(6)=1:x(6)=233:y(6)=152
  29. 127 c$(7)="[208]hiladelphia":c(7)=1:x(7)=234:y(7)=189
  30. 128 c$(8)="[208]ortsmouth  ":c(8)=1:x(8)=234:y(8)=209
  31. 129 c$(9)="[194]altimore   ":c(9)=2:x(9)=229:y(9)=194
  32. 130 c$(10)="[210]ichmond    ":c(10)=1:x(10)=228:y(10)=204
  33. 131 c$(11)="[215]ashington  ":c(11)=1:x(11)=228:y(11)=197
  34. 132 c$(12)="[207]ttawa      ":c(12)=1:x(12)=225:y(12)=159
  35. 133 c$(13)="[210]aleigh     ":c(13)=1:x(13)=225:y(13)=216
  36. 134 c$(14)="[210]ochester   ":c(14)=2:x(14)=221:y(14)=172
  37. 135 c$(15)="[199]reensboro  ":c(15)=1:x(15)=220:y(15)=215
  38. 136 c$(16)="[210]oanoke     ":c(16)=3:x(16)=217:y(16)=209
  39. 137 c$(17)="[194]uffalo     ":c(17)=2:x(17)=216:y(17)=173
  40. 138 c$(18)="[195]harlotte   ":c(18)=1:x(18)=214:y(18)=222
  41. 139 c$(19)="[212]oronto     ":c(19)=2:x(19)=211:y(19)=168
  42. 140 c$(20)="[200]amilton    ":c(20)=1:x(20)=211:y(20)=172
  43. 141 c$(21)="[208]ittsburgh  ":c(21)=1:x(21)=212:y(21)=189
  44. 142 c$(22)="[197]rie        ":c(22)=2:x(22)=210:y(22)=181
  45. 143 c$(23)="[195]harleston  ":c(23)=1:x(23)=206:y(23)=204
  46. 144 c$(24)="[195]leveland   ":c(24)=2:x(24)=203:y(24)=185
  47. 145 c$(25)="[204]ondon      ":c(25)=1:x(25)=203:y(25)=175
  48. 146 c$(26)="[203]noxville   ":c(26)=3:x(26)=195:y(26)=218
  49. 147 c$(27)="[212]oledo      ":c(27)=1:x(27)=193:y(27)=184
  50. 148 c$(28)="[196]etroid     ":c(28)=2:x(28)=198:y(28)=183
  51. 149 c$(29)="[198]lint       ":c(29)=1:x(29)=193:y(29)=179
  52. 150 c$(30)="[195]incinatti  ":c(30)=1:x(30)=192:y(30)=200
  53. 151 c$(31)="[196]ayton      ":c(31)=1:x(31)=192:y(31)=197
  54. 152 c$(32)="[204]ouisville  ":c(32)=1:x(32)=186:y(32)=208
  55. 153 c$(33)="[198]ort [215]ayne  ":c(33)=1:x(33)=185:y(33)=190
  56. 154 c$(34)="[201]ndianapolis":c(34)=1:x(34)=185:y(34)=199
  57. 155 c$(35)="[199]rand [210]apids":c(35)=1:x(35)=184:y(35)=179
  58. 156 c$(36)="[206]ashville   ":c(36)=3:x(36)=181:y(36)=219
  59. 157 c$(37)="[197]vansville  ":c(37)=1:x(37)=179:y(37)=208
  60. 158 c$(38)="[195]hicago     ":c(38)=2:x(38)=175:y(38)=183
  61. 159 c$(39)="[205]ilwaukee   ":c(39)=2:x(39)=174:y(39)=178
  62. 160 c$(40)="[210]ockford    ":c(40)=1:x(40)=169:y(40)=182
  63. 161 c$(41)="[205]emphis     ":c(41)=1:x(41)=166:y(41)=225
  64. 162 c$(42)="[208]eoria      ":c(42)=1:x(42)=166:y(42)=192
  65. 163 c$(43)="[211]t.[204]ouis    ":c(43)=1:x(43)=162:y(43)=206
  66. 164 c$(44)="[212]hunder [194]ay ":c(44)=2:x(44)=165:y(44)=145
  67. 165 c$(45)="[211]t.[208]aul     ":c(45)=1:x(45)=151:y(45)=164
  68. 166 c$(46)="[205]inneapolis ":c(46)=1:x(46)=148:y(46)=165
  69. 167 c$(47)="[196]es [205]oines  ":c(47)=1:x(47)=147:y(47)=185
  70. 168 c$(48)="[203]ansas [195]ity ":c(48)=1:x(48)=140:y(48)=202
  71. 169 c$(49)="[212]opeka      ":c(49)=1:x(49)=136:y(49)=203
  72. 170 c$(50)="[207]maha       ":c(50)=1:x(50)=135:y(50)=188
  73. 171 c$(51)="[212]ulsa       ":c(51)=1:x(51)=134:y(51)=218
  74. 172 c$(52)="[215]innipeg    ":c(52)=1:x(52)=133:y(52)=134
  75. 173 c$(53)="[204]incoln     ":c(53)=1:x(53)=132:y(53)=191
  76. 174 c$(54)="[215]ichita     ":c(54)=1:x(54)=128:y(54)=210
  77. 175 c$(55)="[207]klahoma [195]. ":c(55)=1:x(55)=127:y(55)=223
  78. 176 c$(56)="[210]egina      ":c(56)=1:x(56)=106:y(56)=125
  79. 177 c$(57)="[193]marillo    ":c(57)=3:x(57)=105:y(57)=221
  80. 178 c$(58)="[211]askatoon   ":c(58)=1:x(58)=100:y(58)=116
  81. 179 c$(59)="[196]enver      ":c(59)=3:x(59)=093:y(59)=192
  82. 180 c$(60)="[208]ueblo      ":c(60)=3:x(60)=093:y(60)=200
  83. 181 c$(61)="[195]olorado    ":c(61)=3:x(61)=092:y(61)=196
  84. 182 c$(62)="[197]dmonton    ":c(62)=1:x(62)=077:y(62)=104
  85. 183 c$(63)="[195]algary     ":c(63)=3:x(63)=070:y(63)=118
  86. 184 c$(64)="[211].[204]ake [195]ity ":c(64)=2:x(64)=063:y(64)=182
  87. 185 c$(65)="[211]pokane     ":c(65)=3:x(65)=050:y(65)=135
  88. 186 c$(66)="[194]oise       ":c(66)=3:x(66)=049:y(66)=158
  89. 187 c$(67)="[204]as [214]egas   ":c(67)=3:x(67)=039:y(67)=209
  90. 188 c$(68)="[211]eattle     ":c(68)=2:x(68)=031:y(68)=127
  91. 189 c$(69)="[212]acoma      ":c(69)=2:x(69)=029:y(69)=131
  92. 190 print"[147] [208][196] - [211]oftware "
  93. 200 fort=1to69:forn=1to4:readd(t,n):next:next
  94. 201 data2,5,3,6
  95. 202 data1,3,5,4
  96. 203 data1,2,4,7
  97. 204 data2,3,5,7
  98. 205 data1,2,4,6
  99. 206 data1,5,12,14
  100. 207 data4,3,9,21
  101. 208 data10,11,13,16
  102. 209 data7,21,11,14
  103. 210 data8,11,16,23
  104. 211 data9,10,8,21
  105. 212 data6,14,19,17
  106. 213 data8,18,15,16
  107. 214 data12,6,9,17
  108. 215 data13,16,23,18
  109. 216 data10,8,13,15
  110. 217 data14,12,22,20
  111. 218 data15,13,23,26
  112. 219 data12,20,25,22
  113. 220 data19,17,25,22
  114. 221 data7,9,11,24
  115. 222 data20,19,17,24
  116. 223 data10,15,18,30
  117. 224 data22,21,28,27
  118. 225 data19,20,28,29
  119. 226 data18,36,30,32
  120. 227 data24,28,29,31
  121. 228 data25,24,27,29
  122. 229 data25,28,27,35
  123. 230 data26,23,31,32
  124. 231 data27,33,34,30
  125. 232 data30,37,36,26
  126. 233 data35,31,34,38
  127. 234 data33,31,37,42
  128. 235 data29,33,38,39
  129. 236 data26,32,37,41
  130. 237 data36,32,34,43
  131. 238 data35,40,42,33
  132. 239 data35,45,40,42
  133. 240 data39,45,47,33
  134. 241 data36,43,48,51
  135. 242 data43,34,38,39
  136. 243 data42,37,41,48
  137. 244 data47,45,46,52
  138. 245 data39,40,46,44
  139. 246 data45,44,47,50
  140. 247 data44,40,50,46
  141. 248 data41,43,49,53
  142. 249 data53,48,51,54
  143. 250 data46,47,53,59
  144. 251 data41,49,54,55
  145. 252 data44,58,56,66
  146. 253 data50,48,49,54
  147. 254 data49,51,53,59
  148. 255 data51,61,60,57
  149. 256 data52,58,62,63
  150. 257 data55,59,60,67
  151. 258 data52,56,63,62
  152. 259 data50,54,57,61
  153. 260 data55,57,67,61
  154. 261 data60,64,59,55
  155. 262 data58,56,63,68
  156. 263 data62,58,56,65
  157. 264 data61,67,66,65
  158. 265 data63,64,66,68
  159. 266 data52,64,68,65
  160. 267 data57,60,64,69
  161. 268 data65,66,69,62
  162. 269 data68,67,66,65
  163. 280 :print"[147]":fort=1to2000:next
  164. 281 i$="[197][202][199][200]":i2$="5367":fort=1to4:co$=co$+mid$(i$,t,1)+mid$(i2$,t,1):next
  165. 282 i1$=left$(co$,4):i2$=right$(co$,4):co$=i2$+i1$
  166. 283 rem"
  167. 300 [141]2000:m[178]1:[141]3000
  168. 309 [153]""
  169. 313 :[153]""sd
  170. 320 :[153]"on"sp"$"
  171. 321 :[153]""km"(NULL)m"
  172. 322 :[153]"on"[165]x(1)"cmd lent "
  173. 330 p[178][194](56320):[151]v[170]21,1:[151]v[170]39,1
  174. 331 [139](p [175] 1)[178]0[167]m[178]m[171]1:[139]m[178]0[167]m[178]1
  175. 332 [139](p [175] 2)[178]0[167]m[178]m[170]1:[139]m[178]4[167]m[178]3
  176. 343 [139](p [175] 16)[178]0 [175] m[178]1[167][141]2000:[151]v[170]21,0
  177. 344 [139](p [175] 16)[178]0 [175] m[178]2[167][141]4000:[151]v[170]21,0
  178. 345 [139](p [175] 16)[178]0 [175] m[178]3[167][141]5000:[151]v[170]21,0
  179. 346 [139]m[178]1[167]m1[178]120
  180. 347 [139]m[178]2[167]m1[178]136
  181. 348 [139]m[178]3[167]m1[178]152
  182. 350 [151]v[170]1,m1:[151]v,115
  183. 399 [137]309
  184. 1999 [128]
  185. 2000 [151]v[170]21,0:[141]51000:[129]t[178]1[164]1000:[130]
  186. 2010 [151]v[170]2,x(c):[151]v[170]3,y(c)
  187. 2011 [151]v[170]4,x(c):[151]v[170]5,y(c)
  188. 2012 [151]v[170]6,x(c):[151]v[170]7,y(c)
  189. 2013 [151]v[170]28,255:[151]v[170]39,1:[151]v[170]40,1:[151]v[170]41,1:[151]v[170]42,1:[151]v[170]37,0:
  190. 2014 [151]v[170]38,7:[151]v,x(s):[151]v[170]1,y(s):[151]v[170]21,3
  191. 2030 p[178][194](56320)
  192. 2031 [139](p [175] 4)[178]0[167]s[178]s[170]1:[139]s[178]70[167]s[178]1
  193. 2032 [139](p [175] 8)[178]0[167]s[178]s[171]1:[139]s[178]0[167]s[178]69
  194. 2033 [151]v,x(s):[151]v[170]1,y(s)
  195. 2034 [139](p [175] 16)[178]0[167][151]v[170]21,0:[141]51300:[142]
  196. 2035 :[153]"sys(NULL)eft/(NULL)ight (NULL)tadt :";c$(s)"   "
  197. 2050 [151]v[170]21,3:[151]v[170]39,0:[129]t[178]1[164]100:[130]
  198. 2051 [151]v[170]21,5:[151]v[170]39,1:[129]t[178]1[164]100:[130]
  199. 2052 [151]v[170]21,9:[151]v[170]39,4:[129]t[178]1[164]100:[130]
  200. 2060 [137]2030
  201. 3000 [143] pruefer
  202. 3999 [142]
  203. 4000 [151]v[170]21,0: [141]52000:[153]""
  204. 4010 [129]t[178]1[164]h(c):[153]"on"[163]33)t"cmd.":[129]n[178]1[164](5000[172][187](1)):[130]:
  205. 4020 [139][181]([187](1)[172]3)[178]1 [175]na(c)[179][177]0[167]4100
  206. 4030 [130]:
  207. 4040 [153]"load       (NULL)ut mir sehr leid,aber in "
  208. 4041 [153]"  keinem left$otel dieser (NULL)tadt scheint "
  209. 4042 [153]"        (NULL)ebecca gewohnt zu haben."
  210. 4050 [139]([194](56320) [175] 16)[179][177]0[167]4050
  211. 4051 [141]51300:  [142]
  212. 4100 t[178]0:n[178]0:[141]52300:[153]"";na(c);"lent."
  213. 4110 [153]"";c$(d(c,ri(c)))"."
  214. 4200 [139](([194](56320)) [175] 16)[179][177]0[167]4200
  215. 4210 [141]51300:[142]
  216. 5000 [143] reisen
  217. 5010 [151]v[170]21,0:[141]51600:m[178]1
  218. 5020 [153]"sys":[129]t[178]1[164]4:[153]""c$(d(c,t)):[130]
  219. 5021 [153]"(NULL)urueck zum (NULL)enue"
  220. 5100 p[178][194](56320)
  221. 5110 [139](p [175] 1)[178]0[167]m[178]m[171]1:[139]m[178]0[167]m[178]1
  222. 5120 [139](p [175] 2)[178]0[167]m[178]m[170]1:[139]m[178]6[167]m[178]5
  223. 5130 [139]m[178]1[167]m1[178]176
  224. 5131 [139]m[178]2[167]m1[178]184
  225. 5132 [139]m[178]3[167]m1[178]192
  226. 5133 [139]m[178]4[167]m1[178]200
  227. 5135 [139]m[178]5[167]m1[178]208
  228. 5140 [139](p [175] 16)[178]0 [175]m[178]5[167]m[178]1:[151]v[170]21,0:[141]51300:[142]
  229. 5150 [139](p [175] 16)[178]0 [167]5300
  230. 5200 [151]v[170]21,1:[151]v[170]39,1:[151]v,30:[151]v[170]1,m1:[137]5100
  231. 5300 [151]v[170]21,0:[141]51000:[151]v[170]2,x(c):[151]v[170]4,x(c):[151]v[170]6,x(c)
  232. 5301 :[151]v[170]3,y(c):[151]v[170]5,y(c):[151]v[170]7,y(c):[151]v,x(c):[151]v[170]1,y(c):[151]v[170]39,0
  233. 5305 m[178]d(c,m)
  234. 5310 km[178]km[170][181](([186](([182](x(c)[171]x(m)))[174]2[170]([182](y(c)[171]y(m)))[174]2))[172]18.182)
  235. 5320 sp[178][181](km[172].3)
  236. 5330 [151]v[170]21,3:s1[178]1
  237. 5340 [139][182](x(c)[171]x(m))[179][182](y(c)[171]y(m))[167]5500
  238. 5350 [139]x(c)[177]x(m)[167]s1[178][171]1
  239. 5351 s2[178][182](y(c)[171]y(m))[173][182](x(c)[171]x(m)):y[178]y(c)
  240. 5355 [139]y(c)[177]y(m)[167]s2[178][171]s2
  241. 5360 [129]x[178]x(c)[164]x(m)[169]s1:y[178]y[170]s2
  242. 5370 [151]v,x:[151]v[170]1,y:[151]v[170]21,3:[129]t[178]1[164]100:[130]:
  243. 5371 [151]v[170]21,5:[151]v[170]39,1:[129]t[178]1[164]100:[130]:
  244. 5372 [151]v[170]21,9:[151]v[170]39,2:[129]t[178]1[164]100:[130]:[130]
  245. 5400 [137]5600
  246. 5500 s2[178]1: [139]y(c)[177]y(m)[167]s2[178][171]1
  247. 5551 s1[178][182](x(c)[171]x(m))[173][182](y(c)[171]y(m)):x[178]x(c)
  248. 5555 [139]x(c)[177]x(m)[167]s1[178][171]s1
  249. 5560 [129]y[178]y(c)[164]y(m)[169]s2:x[178]x[170]s1
  250. 5570 [151]v,x:[151]v[170]1,y:[151]v[170]21,3:[129]t[178]1[164]100:[130]:
  251. 5571 [151]v[170]21,5:[151]v[170]39,1:[129]t[178]1[164]100:[130]:
  252. 5572 [151]v[170]21,9:[151]v[170]39,2:[129]t[178]1[164]100:[130]:[130]
  253. 5600 c[178]m:[139][187](1)[177].3[167]r1[178][181](4[172][187](1))[170]1:na(r)[178][165]x(1):ri(r)[178]r1:[137]5605
  254. 5604 [137]5610
  255. 5605 r[178]d(r,r1):
  256. 5610 [153]""c$(c)""
  257. 5620 [151]v[170]39,1:[151]v[170]2,x:[151]v[170]4,x:[151]v[170]6,x:[151]v[170]3,y:[151]v[170]5,y:[151]v[170]7,y
  258. 5621 [151]v,x:[151]v[170]1,y
  259. 5622 sd[178]sd[170]1
  260. 5630 [143]
  261. 5631 [151]v[170]21,3:[129]n[178]1[164]100:[130]
  262. 5632 [151]v[170]21,5:[129]n[178]1[164]100:[130]
  263. 5633 [151]v[170]21,9:[129]n[178]1[164]100:[130]:
  264. 5634 [139] ([194](56320) [175] 16) [179][177]0[167]5630
  265. 5635 [151]v[170]21,0
  266. 5640 [139]c(c)[178]1[167][141]50000
  267. 5642 [139]c(c)[178]2[167][141]50300
  268. 5643 [139]c(c)[178]3[167][141]50600
  269. 5650 [139] ([194](56320) [175] 16)[179][177]0 [167]5650
  270. 5651 [129]t[178]1[164]100:[130]
  271. 5700 [139][181]([187](1)[172]6)[170]1[178]1[167][141]52600:
  272. 5710 [139]r[178]c[167]6000
  273. 5800 [141]51300:m[178]1:[142]
  274. 6000 [141]52700::ag[178]sp[170]300[172][165]x(1)[170]1000[172]sd:
  275. 6100 :an[178]020:[134]na$(an,8):na$(1,1)[178]"name jeremy flynn":[153]"load";[199](142)
  276. 6102 na$(1,2)[178]"lebt in denver seit 1988"
  277. 6103 na$(1,3)[178]"verheiratet,2 kinder"
  278. 6104 na$(1,4)[178]"gefaengniss 10/22/1972"
  279. 6105 na$(1,5)[178]"wegen grober steuerhin-"
  280. 6106 na$(1,6)[178]"terziehung"
  281. 6107 na$(1,7)[178]"angestellter in porsche ag"
  282. 6108 na$(1,8)[178]"ehem.mitglied der freimaurer"
  283. 6121 na$(2,1)[178]"firma porsche ag"
  284. 6122 na$(2,2)[178]"grosstaendiges unternehmen"
  285. 6123 na$(2,3)[178]"23540 angestellte"
  286. 6124 na$(2,4)[178]"spezialisiert auf vertrieb von"
  287. 6125 na$(2,5)[178]"luxus-automobilen"
  288. 6126 na$(2,6)[178]"vermutlich verwickelt in"
  289. 6127 na$(2,7)[178]"illegale transportgeschaefte"
  290. 6128 na$(2,8)[178]"besitzer : michael loopy"
  291. 6131 na$(3,1)[178]"klub freimaurer"
  292. 6132 na$(3,2)[178]"vereinigung von menschen"
  293. 6133 na$(3,3)[178]"starke aufnahmerituale"
  294. 6134 na$(3,4)[178]"keine gefahr fuer die ver-"
  295. 6135 na$(3,5)[178]"einigten nationen"
  296. 6136 na$(3,6)[178]"."
  297. 6137 na$(3,7)[178]"."
  298. 6138 na$(3,8)[178]"."
  299. 6141 na$(4,1)[178]"name michael loopy"
  300. 6142 na$(4,2)[178]"alter : 35 jahre"
  301. 6143 na$(4,3)[178]"besitzer der porsche-ag"
  302. 6144 na$(4,4)[178]"beziehungen zur regierung"
  303. 6145 na$(4,5)[178]"keine vorstrafen"
  304. 6146 na$(4,6)[178]"lebt zur zeit in new york"
  305. 6147 na$(4,7)[178]"gilt als millionaer in fach-
  306. 6148 na$(4,8)="kreisen"
  307. 6151 na$(5,1)="gefaengniss 10/22/1972"
  308. 6152 na$(5,2)="staatsgefaengniss seit 1966"
  309. 6153 na$(5,3)="straeflinge in jahr 1972:"
  310. 6154 na$(5,4)="carol anderson"
  311. 6155 na$(5,5)="stephen grant"
  312. 6156 na$(5,6)="tom j.franklin"
  313. 6157 na$(5,7)="peter winter"
  314. 6158 na$(5,8)="jeremy flynn"
  315. 6161 na$(6,1)="name carol anderson"
  316. 6162 na$(6,2)="geboren 1960 in palm springs"
  317. 6163 na$(6,3)="gefaengniss 10/22/1972"
  318. 6164 na$(6,4)="verlobt mit charles flemming"
  319. 6165 na$(6,5)="kinder :1"
  320. 6166 na$(6,6)="lebt zur zeit in st.louis "
  321. 6167 na$(6,7)="arbeitet als freiwillige  "
  322. 6168 na$(6,8)="krankenschwester in den slums"
  323. 6171 na$(7,1)="name charles flemming"
  324. 6172 na$(7,2)="alter: 43 jahre"
  325. 6173 na$(7,3)="verlobt mit carol anderson"
  326. 6174 na$(7,4)="mitglied der freimaurer"
  327. 6175 na$(7,5)="arbeitet als kellner in"
  328. 6176 na$(7,6)="einem mc donalds restaurant"
  329. 6177 na$(7,7)="kinder : 1"
  330. 6178 na$(7,8)=" "
  331. 6181 na$(8,1)="name stephen grant"
  332. 6182 na$(8,2)="alter: 38 jahre"
  333. 6183 na$(8,3)="geboren in minneapolis"
  334. 6184 na$(8,4)="einzelkind"
  335. 6185 na$(8,5)="wurde als geistig minderbemit-"
  336. 6186 na$(8,6)="telt erklaert"
  337. 6187 na$(8,7)="lebt irgendwo in alaska"
  338. 6188 na$(8,8)="arbeit unbekannt"
  339. 6191 na$(9,1)="name peter winter"
  340. 6192 na$(9,2)="geboren : 28.1.1955"
  341. 6193 na$(9,3)="eltern fruehzeitig ver-"
  342. 6194 na$(9,4)="storben."
  343. 6195 na$(9,5)="neigt zu kriminellen hand-"
  344. 6196 na$(9,6)="lungen"
  345. 6197 na$(9,7)="gefaengniss 10/22/1972"
  346. 6198 na$(9,8)="republikaner"
  347. 6200 na$(10,1)="name tom j.franklin"
  348. 6202 na$(10,2)="geboren in florenz "
  349. 6203 na$(10,3)="gefeangniss 10/22/1972 wegen"
  350. 6204 na$(10,4)="diebstahls eines schuldscheines"
  351. 6205 na$(10,5)="schwester emily franklin"
  352. 6206 na$(10,6)="bruder john franklin"
  353. 6207 na$(10,7)="freundin amy de laught"
  354. 6208 na$(10,8)="wurde in seiner wohnung erschossen"
  355. 6211 na$(11,1)="name emily franklin"
  356. 6212 na$(11,2)="brueder tom j. & john franklin"
  357. 6213 na$(11,3)="trifft sich oefter mit charles "
  358. 6214 na$(11,4)="flemming "
  359. 6215 na$(11,5)="seit 11 tagen verschwunden"
  360. 6221 na$(12,1)="name john franklin"
  361. 6222 na$(12,2)="schwester emily franklin"
  362. 6223 na$(12,3)="bruder tom j.franklin"
  363. 6224 na$(12,4)="arbeit bei tbc animals"
  364. 6225 na$(12,5)="seit 10 tagen verschwunden"
  365. 6231 na$(13,1)="firma tbc animals"
  366. 6232 na$(13,2)="mini-firma (vertrieb v.haustieren)"
  367. 6233 na$(13,3)="angestellte:"
  368. 6234 na$(13,4)="john franklin"
  369. 6235 na$(13,5)="susan springs"
  370. 6236 na$(13,6)="jim morris"
  371. 6237 na$(13,7)="keith peters"
  372. 6238 na$(13,8)="robert mc carthey"
  373. 6241 na$(14,1)="name keith peters"
  374. 6242 na$(14,2)="alter : 53 jahre"
  375. 6243 na$(14,3)="verheiratet mit susan springs"
  376. 6244 na$(14,4)="keine kinder"
  377. 6245 na$(14,5)="hat einmal einem maedchen das"
  378. 6246 na$(14,6)="leben gerettet."
  379. 6247 na$(14,7)="arbeitet bei tbc animals"
  380. 6248 na$(14,8)="keine vorstrafen"
  381. 6251 na$(15,1)="name robert mc carthey"
  382. 6252 na$(15,2)="alter : 47 jahre"
  383. 6253 na$(15,3)="geschieden"
  384. 6254 na$(15,4)="2 kinder (max,telly)"
  385. 6255 na$(15,5)="keine vorstrafen"
  386. 6261 na$(16,1)="name jim morris"
  387. 6262 na$(16,2)="alter : unbekannt"
  388. 6263 na$(16,3)="lebt in einem hotel in denver"
  389. 6264 na$(16,4)="war mit john franklin befreundet"
  390. 6265 na$(16,5)="arbeitet bei tbc animals"
  391. 6266 na$(16,6)="keine geschwister/verwandte"
  392. 6267 na$(16,7)="keine vorstrafen"
  393. 6271 na$(17,1)="hotels denver"
  394. 6272 na$(17,2)="-------------"
  395. 6273 na$(17,3)="blue crystal"
  396. 6274 na$(17,4)="4 jahreszeiten"
  397. 6275 na$(17,5)="grandhotel"
  398. 6276 na$(17,6)="men masters"
  399. 6281 na$(18,1)="hotel blue crystal"
  400. 6282 na$(18,2)="            "
  401. 6283 na$(18,3)="liegt unter datenschutz"
  402. 6291 na$(19,1)="hotel 4 jahreszeiten"
  403. 6292 na$(19,2)="            "
  404. 6293 na$(19,3)="liegt unter datenschutz"
  405. 6301 na$(20,1)="hotel grandhotel"
  406. 6302 na$(20,2)="            "
  407. 6303 na$(20,3)="liegt unter datenschutz"
  408. 7000 print"[147]       cia - terminal 373/2972":ti$="000000"
  409. 7001 print"       -----------------------"
  410. 7010 print"[158]":a$="search for":gosub41000 :print"[145]";:open1,0
  411. 7011 input#1,a$:close1
  412. 7100 ifa$="hotel men masters"then10000
  413. 7110 fort =1to20:ifna$(t,1)=a$thenl=t:t=0:gosub40000:goto7010
  414. 7120 next
  415. 7130 print"":a$="ungenuegende angabe oder unbekanntes":gosub41000:print
  416. 7131 a$="objekt...":gosub41000:goto7010
  417. 10000 ag=ag*ti*rg/100000
  418. 10010 ifag<35000thenur$="absolute [211]pitze !!!!!!!!!!!!! ":goto10100
  419. 10011 ifag<40000thenur$="eine echt super [204]eistung    !!":goto10100
  420. 10012 ifag<45000thenur$="eine sehr gute [204]eistung.      ":goto10100
  421. 10013 ifag<50000thenur$="eine wirklich gute [204]eistung.  ":goto10100
  422. 10014 ifag<55000thenur$="eine gute [204]eistung.           ":goto10100
  423. 10015 ifag<60000thenur$="keine schlechte [204]eistung.     ":goto10100
  424. 10016 ifag<65000thenur$="eine mittelmaessige [204]eistung. ":goto10100
  425. 10017 ifag<70000thenur$="eine weniger gute [204]eistung.   ":goto10100
  426. 10018 ifag<75000thenur$="eine unbefriedigende [204]eistung.":goto10100
  427. 10019 ifag<80000thenur$="eine schlechte [204]eistung.      ":goto10100
  428. 10020 ifag<85000thenur$="eine beschaemende [204]eistung.   ":goto10100
  429. 10021 ur="eine saumaessige [204]eistung.   ":goto10100
  430. 10100 gosub60000:print""ur$
  431. 10200 ifag<50000then20000
  432. 10300 print"  [204]eider war das [193]ngebot an [194]ewerbern"
  433. 10310 print"  zu vielversprechend,so dass wir auf"
  434. 10320 print"  grund der [204]eistungen gezwungen wa-"
  435. 10330 print"   ren,andere [194]ewerber vorzuziehen. ":goto20100
  436. 20000 rem
  437. 20010 print"[196]eine [204]eistung war wirklich hervorra-"
  438. 20011 print"  gend,so dass wir beschlossen haben,"
  439. 20012 print"  [196]ich aufzunehmen.[200]erzlichen [199]lueck-"
  440. 20013 print"      wunsch.  [195][207][196][197]:"co$"[146]."
  441. 20100 if(peek(56320) and 16)<>0then20100
  442. 20110 run
  443. 39999 end
  444. 40000 si=54272:pokesi+24,15:pokesi+4,80:pokesi+6,255:pokesi,100:pokesi+1,100
  445. 40100 print"[147][153]":fort=1to8:forn=1tolen(na$(l,t)):pokesi+4,81:fori=1to10:next
  446. 40110 pokesi+4,80:printtab(n)"[145]" ;mid$(na$(l,t),n,1):next:print:next:rg=rg+1
  447. 40999 pokesi+4,0:return
  448. 41000 si=54272:pokesi+24,15:pokesi+4,80:pokesi+6,255:pokesi,100:pokesi+1,100
  449. 41100 forn=1tolen(a$):pokesi+4,81:fori=1to10:next
  450. 41110 pokesi+4,80:printtab(n)"[145]" ;mid$(a$,n,1):next
  451. 49999 pokesi+4,0:return
  452. 50000 poke53280,14:poke53281,14:poke53272,23:print"[147]";:a$=chr$(34)+chr$(34)+chr$(20)
  453. 50010 print"[151]       [146]           [144][164][164]                [160][151][160][160][160]";
  454. 50020 print"   [172][190]  [155]    [146][162][162][162][162][162][162] [144][170]       [163][163][163][183][183][183][183][163]  [160][151][160][160][160]";
  455. 50030 print"       [155]               [146]        [163][163][183][183][184][183][183][151][160][160][160]";
  456. 50040 print" [172]     [155] [188]  [187] [172]        [146]              [151][161]   ";
  457. 50050 print" [190]  [146][191]  [155]         [188]  [188]  [146] [144][175][175][175][175][175][175]       [151][161]   ";
  458. 50060 print"       [155] [188]  [187] [172]        [144][146][170]PAN-AM[144][146][180]      [151]    ";
  459. 50070 print"  [187]    [155]         [188]  [188]  [144][146][170][183][183][183][183][183][183]       [151]    ";
  460. 50080 print" [188]  [146][191]  [155] [188]  [187] [172]        [144][146][170]             [151]    ";
  461. 50090 print"       [149][162][146][191][155]    [144][146][162]                          ";
  462. 50100 print"[151]  [187]    [146]  [149][162][162][144][146][162]                            ";
  463. 50110 print"[151] [188]  [146][191]  [146]    [158]                             ";
  464. 50120 print"[151]       [146]    [158]                             ";
  465. 50130 print"[151]  [187]    [146]    [158]                             ";
  466. 50140 print"[151] [188]   [187] [149][146][191]  [161][158]    [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]   ";
  467. 50150 print"[151]    [188]  [146] [149][191] [161][158]                             ";
  468. 50160 print"[151]       [146]  [149][161][161][158]                             ";
  469. 50170 print"[151] [172][190]    [146] [149][191][146] [161][158]    [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]   ";
  470. 50180 print"[151]      [146][190][149][191][146]  [161][158]                             ";
  471. 50190 print"[151]     [146][190][149][191][146]   [161][158]                             ";
  472. 50200 print"[151]    [146][190][149][191][146]    [161][158]    [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]  [158]   ";
  473. 50210 print"[151]   [146][190][149][191][146]      [158]                             ";
  474. 50220 print"[151]  [146][190][149][191][146]     [172][162][158]         PAN[160]- AM            ";
  475. 50230 print"[151] [146][190][149][191][146]     [172][190] [158]    [158]  [158]   [163][163][163][163][163][163][163][163]     [158]  [158]  [158]   ";
  476. 50240 print"[151][146][190][149][191][146]      [161]  [158]        [159]          [158]           ";
  477. 50250 print"[149][162][146]       [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]
  478. 50260 [151]2023,226:[151]56295,9
  479. 50270 [142]
  480. 50300 [151]53280,14:[151]53281,14:[151]53272,23:[153]"load";:a$[178][199](34)[170][199](34)[170][199](20)
  481. 50310 [153]"print       wait                 get         wait
  482. 50320 print"[153]       [146]       [163][163][183][183][163][163]    [161] [187][172] [187][172] [187] [146]
  483. 50330 [153]"print log  cos  wait            tab(tab(tab(  get         wait
  484. 50340 print"[153]        [146]        [144][164][164][164]     [161] [190][188] [190][188] [190] [146]
  485. 50350 [153]"print log  cos log wait         stop+      get rnd* rnd* rnd wait
  486. 50360 print"[153]        [146]  [158]   C O K E   [146] [161]         [146]
  487. 50370 [153]"print log  cos log wait  list             wait get coslog coslog cos wait
  488. 50380 print"[153]        [146]  [155] [172][187] [162] [172][187] [162]   [146] [172] [187][172] [187][172] [187] [146]
  489. 50390 [153]"print log  cos log waitrnd list             wait           wait
  490. 50400 print"[153]        [146][161] [155] [188][190] [146][162] [188][190] [146][162]   [146] [188] [190][188] [190][188] [190] [146]
  491. 50410 [153]"print log  cos log waitget list *rnd new *rnd new   wait * rnd* rnd* rnd wait
  492. 50420 print"[153]        [146][161] [155]             [146]            [146]
  493. 50430 [153]"print log  cos log waitget list logcospoke                   coslog wait
  494. 50440 print"[153]        [146][161] [155] [172][187][151]                 [160] [187][172] [187] [146][162][162][162]";
  495. 50450 print"[153] [188]  [190] [188] [146][161] [155]   [151]  [158]  [151]  [158]  [151]  [158]  [151]  [158]  [151] [160]   [155]      ";
  496. 50460 print"[153]        [146][161] [155] [188][190][151][160]                  [190][188][155] [144] [155] [144] [155] [144] ";
  497. 50470 print"[153] [188]  [190] [188] [146][161] [155] [172][187][151][160]   [158]  [151]  [158]  [151]  [158]  [151]    [160][187][172][155]      ";
  498. 50480 print"[153]        [146][161] [155]   [151][160]                 [160]  [155]  [144] [155] [144] [155] ";
  499. 50490 print"[153] [188]  [190] [188] [146][161] [155]   [151][160]         [151]       [160] [190][188][155]      ";
  500. 50500 print"[146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  501. 50510 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  502. 50520 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  503. 50530 print"                                        ";
  504. 50540 print"                                        ";
  505. 50550 print"                                       
  506. 50560 [151]2023,160:[151]56295,6
  507. 50570 [142]: 1990 by ao soft. ([171]3469[171])
  508. 50600 [151]53280,14:[151]53281,14:[151]53272,23:[153]"load";:a$[178][199](34)[170][199](34)[170][199](20)
  509. 50610 [153]"
  510. 50620 print"             [162]    [183][183][184][184][184][183][183][183][163][163][163]
  511. 50630 [153]"            cos waitget
  512. 50640 print"           [190]   [146][187]     [163][163][163][163][163][183][183][183][183][183][163][163][163][163][163]   [162]";
  513. 50650 print"         [172]       [146][162]         [163][163][183][183][163][163]  [172][190]   ";
  514. 50660 print"[146]        [149][172]      [149]    [146][162][162]             [162]     ";
  515. 50670 print"[146]       [149][190]             [188][146][187]          [190]      ";
  516. 50680 print"[146]     [149][172]                 [188][146][162][187] [163][183][184][183][163][149][190]       ";
  517. 50690 print"[146] [190][146][187] [172]                     [146]     [190]        ";
  518. 50700 print"[190]  [146][162][187]                     [188][146]   [190]         ";
  519. 50710 print"    [188][187]                      [146][187][172]          ";
  520. 50720 print"     [188][187]                      [161]          ";
  521. 50730 print"      [188][187]                     [188][191]         ";
  522. 50740 print"       [188][187]                      [191]        ";
  523. 50750 print"        [188][187]                      [191]       ";
  524. 50760 print"    SPRITE [149]         [155]      [149]       [191][187]     ";
  525. 50770 print"[158]               [149]     [155]   [155]  [155] [149]        [188][162]    ";
  526. 50780 print"[158] [190][190][190][190][190][190][190][190][190][190][190][190][190][190][149]     [155]      [149]          [191]   ";
  527. 50790 print"[158] [187][187][187][187][187][187][187][187][187][187][187][187][187][187][149]     [155]   [155]  [155] [149]           [146][162][191][162]";
  528. 50800 print"[158]          [152]             [155]    [149]             ";
  529. 50810 print"[158] [190][190][190][190][190][190][190][190][190][152] [144] [152] [144] [152] [144] [152] [144] [152] [144] [152] [144] [152] [155]  [155]  [149]             ";
  530. 50820 print"[158] [187][187][187][187][187][187][187][187][187][152]             [155]    [149]       [153]      ";
  531. 50830 print"[158]          [152]             [155]  [155]  [153][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  532. 50840 print"[158] [190][190][190][190][190][190][190][190][190][152] [144] [152] [144] [152] [144] [152] [144] [152] [144] [152] [144] [152] [155]    [153] [190][188] [188] [190][188] [190][188] [190]";
  533. 50850 print"[158]         [158] [152]             [155]  [155]  [153] [190][188] [188] [190][188] [190][188] 
  534. 50860 [151]2023,254:[151]56295,13
  535. 50870 [142]: 1990 by ao soft. ([171]3435[171])
  536. 51000 [151]53280,14:[151]53281,14:[151]53272,23:[153]"load";:a$[178][199](34)[170][199](34)[170][199](20)
  537. 51010 [153]"      Map of North-East America
  538. 51020 print"
  539. 51030 [153]"verify                 wait rnd   newrnd
  540. 51040 print"                [172][146] [187][146][187]     [146]
  541. 51050 [153]"               *wait  new        waitnewlogwaitrnd
  542. 51060 print"               [146][161]  [190][188]          [188][146]
  543. 51070 [153]"                waitget    rnd          waitrnd
  544. 51080 print"                 [146][187]               [146] [188][146][187]
  545. 51090 [153]"                  loglogwaitrndlog          *wait get logwait
  546. 51100 print"                     [146] [187]        [172][146]  [190]  [188][146]
  547. 51110 [153]"                     waitrndcos       newwait   rnd newwait
  548. 51120 print"                             [188][188][146]
  549. 51130 [153]"                               logwaitnew wait
  550. 51140 print"                                 [146][190]
  551. 51150 [153]"                                waitcos
  552. 51160 print"                             [172][146]
  553. 51170 [153]"                             wait
  554. 51180 print"                            [172][146]
  555. 51190 [153]"                           *wait
  556. 51200 print"                           [146]
  557. 51210 [153]"                           wait
  558. 51220 print"                           [146][187]
  559. 51230 [153]"                           wait(NULL)tandort:
  560. 51240 print"[149]                          [146][161][163][163][163][163][163][163][163][163][163]
  561. 51250 [153]"verify                         *wait ";c$(c);""
  562. 51260 [142]: 1990 by ao soft. ([171]3161[171])
  563. 51300 [151]53280,0:[151]53281,0:[151]53272,23:[153]"load";:a$[178][199](34)[170][199](34)[170][199](20)
  564. 51310 [153]"sys{$7b}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}sys{$7b}";
  565. 51320 [153]"{$7d}sysspc(spc(spc(spc(logrnd*waitcos        sysspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}";
  566. 51330 [153]"{$7d}sysspc(spc(spc(spc( getwaitget **rndwaitrndget*rndwaitrndsysspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}";
  567. 51340 [153]"{$7d}sysspc(spc(spc(spc( getwaitget getwaitgetgetwaitgetgetlogcoswaitcossysspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}";
  568. 51350 [153]"{$7d}sysspc(spc(spc(spc( logcos  newnewwait getwaitget  sysspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}";
  569. 51360 [153]"{$7d}sysspc(spc(spc(spc(spc(spc(spc( coslogwait              *rnd         getwaitget {$7d}";
  570. 51370 [153]"{$7d}sysspc(spc(spc(spc(spc(spc(spc(getlogcoswaitget**rndwaitget**rndwaitrndget*rndwaitrndlogrnd*waitcos**newwaitcos    rndwaitget {$7d}";
  571. 51380 [153]"{$7d}sysspc(spc(spc(spc(spc(spc(spc(getwaitgetgetwaitgetloglogcoswaitgetget*newwaitcosgetwaitgetgetwaitget getwaitget  newrndwaitrnd    getwaitget {$7d}";
  572. 51390 [153]"{$7d}sysspc(spc(spc(spc(spc(spc(spc(logcoslogcos*newcoswaitcos newnewwait logcoslogcos  newwaitcoslognewnewwait    lognewnewwaitcos{$7d}";
  573. 51400 [153]"{$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}";
  574. 51410 [153]"(NULL)sysspc(spc(spc(spc(spc(spc(spc(spc(spc(ortantantantantantantantantantantantantantantantantantan^sysspc(spc(spc(spc(spc(spc(spc(spc(spc((NULL)";
  575. 51420 [153]"{$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}   Plan ansehen   {$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}";
  576. 51430 [153]"{$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}                  {$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}";
  577. 51440 [153]"{$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc({$7d} Hotels abfragen  {$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}";
  578. 51450 [153]"{$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}                  {$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}";
  579. 51460 [153]"{$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}      Reisen      {$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}";
  580. 51470 [153]"{$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}                  {$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}";
  581. 51480 [153]"{$7d}sysspc(spc(or{$60}{$60}{$60}{$60}{$60}{$60}>{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}>{$60}{$60}{$60}{$60}{$60}{$60}^sysspc(spc({$7d}";
  582. 51490 [153]"{$7d}sysspc(spc({$7d}openBisher besuchte Staedte :       {$7d}sysspc(spc({$7d}";
  583. 51500 [153]"{$7d}sysspc(spc({$7d}openausgegebenes Geld:              {$7d}sysspc(spc({$7d}";
  584. 51510 [153]"{$7d}sysspc(spc({$7d}opengefahrene Kilometer:            {$7d}sysspc(spc({$7d}";
  585. 51520 [153]"{$7d}sysspc(spc({$7d}openAgentenzeit:                    {$7d}sysspc(spc({$7d}";
  586. 51530 [153]"{$7d}sysspc(spc(/{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}expsysspc(spc({$7d}";
  587. 51540 [153]"{$7d}sysspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc({$7d}";
  588. 51550 [153]"sys{$7b}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}sys
  589. 51560 poke2023,91:poke56295,7
  590. 51570 return: 1990 by ao soft. (-3554-)
  591. 51600 poke53280,0:poke53281,0:poke53272,23:print"[147]";:a$=chr$(34)+chr$(34)+chr$(20)
  592. 51610 print"  Ich bin jetzt auf dem Bahnhof.Bitte
  593. 51620 [153]" entscheide Dich,welchen Zug Du nehmen
  594. 51630 print"   willst !
  595. 51640 [153]"                                        ";
  596. 51650 [153]"wait       new rnd    *             rnd *         ";
  597. 51660 [153]"wait      waitget  waitlog  new waitgetrnd cos new **rnd   waitsinget*waitrnd         ";
  598. 51670 [153]"wait       waitnewrndget waitget getwaitget  getwaitget getwaitgetcoswaitget    get waitget         ";
  599. 51680 [153]"wait      lognewcossinwaitsinlognewgetlognewcosgetlognewcoswaitget waitget    get waitgetEA       ";
  600. 51690 [153]"wait       pokeclosewait                      pokeclose         ";
  601. 51700 [153]"wait       pokeclosewait                      pokeclose         ";
  602. 51710 [153]"wait       pokeclosewait                      pokeclose         ";
  603. 51720 [153]"wait       pokeclosewait                      pokeclose   waitnew*newnewnew*";
  604. 51730 [153]"       pokeclosewait                      pokeclose    get   get";
  605. 51740 [153]"wait       pokeclosewait                      pokeclose    get  waitnewget";
  606. 51750 [153]"wait       poke wait                      pokeclose    get   get";
  607. 51760 [153]"wait  list                                      ";
  608. 51770 [153]"wait  Es fahren folgende Zuege:
  609. 51780 print"
  610. 51790 [153]"
  611. 51800 print"
  612. 51810 [153]"
  613. 51820 print"
  614. 51830 [153]"
  615. 51840 print"
  616. 51850 [153]"  Welchen soll ich buchen ? ..."
  617. 51860 [142]: 1990 by ao soft. ([171]3147[171])
  618. 52000 [151]53280,0:[151]53281,0:[151]53272,23:[153]"load";:a$[178][199](34)[170][199](34)[170][199](20)
  619. 52010 [153]"   Ich besuche jetzt die bekanntesten
  620. 52020 print"  Hotels der Stadt,und erkundige mich
  621. 52030 [153]"  nach Rebecca.... Kann etwas dauern !
  622. 52040 print"
  623. 52050 [153]"      verifylog                         waitcos
  624. 52060 print"      [172]                         [146][187]
  625. 52070 [153]"     *                           waitrnd
  626. 52080 print"   [188]                               [146][190]
  627. 52090 [153]"     list          *newrnd    newnew          wait
  628. 52100 print"               [190] [188][146][162] [172][162]  [190]         [146]
  629. 52110 [153]"    verify*list                             wait
  630. 52120 print"    [149][161][155]  [158] [149] [162] [158] [155] [158]   [155] [158] [149] [162] [158]  [149] [162] [158]  [149] [162] [158] [155]  [149][146][161]
  631. 52130 [153]"    loglist  sys verifylogwaitnewcossys list sys   list sys verifylogwaitnewcossys  verifylogwaitnewcossys  verifylogwaitnewcossys list  verifywaitget
  632. 52140 print"     [155]                             [146]
  633. 52150 [153]"    verifygetlist  sys verify new sys  verify new sys list sys   list sys verify new sys  verify new sys list  verifywaitget
  634. 52160 print"    [161][155]  [158] [149][188][146][162][190][158]  [149][188][146][162][190][158] [155] [158]   [155] [158] [149][188][146][162][190][158]  [149][188][146][162][190][158] [155]  [149][146][161]
  635. 52170 [153]"     list                             wait
  636. 52180 print"                                  [146]
  637. 52190 [153]"                                  wait
  638. 52200 print"   [152][172]                               [146][187]
  639. 52210 [153]"                    close
  640. 52220 print"                    [160]
  641. 52230 [153]"  Ich bin gerade im Hotel Nummer
  642. 52240 print"
  643. 52250 [153]""
  644. 52260 [142]: 1990 by ao soft. ([171]3182[171])
  645. 52300 [151]53280,0:[151]53281,0:[151]53272,23:[153]"load";:a$[178][199](34)[170][199](34)[170][199](20)
  646. 52310 [153]" Hallo,ich bin der Empfangs-Chef dieses
  647. 52320 print" noblen Hauses.Ich glaube,ich habe die
  648. 52330 [153]"Frau,die Sie mir beschrieben haben schon";
  649. 52340 [153]"gesehen.Sie war hier um
  650. 52350 print"Sie sagte sie wolle nach
  651. 52360 [153]"    Beehren Sie uns bald wieder !!!
  652. 52370 print"                      [153][162][162][187]        [151][172][162][162][146][162][187]
  653. 52380 [153]"clrrndnew*rndnew*rndnew*rndnew*rndnew*rndnew*rndwait printcos    waitrnd      pokesinwaitcos   logsin
  654. 52390 print"[156][161][146] [161][161][146] [161][161][146] [161][161][146][172][156][161][161][146] [161][161][146][187][156][161][161][146] [129][161] [187][172] [146][161]      [172][162][162][162][162][162][187][146]
  655. 52400 [153]"clrrndnew*rndnew*rndnew*rndnew*rndnew*rndnew*rndwait forlog *  waitcos      getsys*newnewnewrndgetwait
  656. 52410 print"[156][161][146] [161][161][146][187][156][161][161][146] [161][161][146] [161][161][146][187][156][161][161][146] [161][161][146]  [129] [188][172] [146]       [161][158][161][191][188][188][161][161][146]
  657. 52420 [153]"clrrndnew*rndnew*rndnew*rndnew*rndnew*rndnew*rndwait  forrndwaitnewcos*wait       getsys*getgetwaitlogrndgetwait
  658. 52430 print"[156][161][146][187][156][161][188][154][172][152][162][154][162][162][162][162][187][156][190][161][146][172][156][161][161][146][187][156][161][161][146] [190] [129]    [146][162]     [161][158][188][188][190][190][190][161][146]
  659. 52440 [153]"clrnewnewnewwaitcoscont new   new clrwaitlognewnewnewnewnewnewnew *    rnd logwait    logwaitnewnewnewnewnewcoswait
  660. 52450 print"     [152][161][154] [146][162][152] [146][161]          [146][162][162][191][146][172][162]   [146]
  661. 52460 [153]"verify                                        ";
  662. 52470 [153]"                                        ";
  663. 52480 [153]"sys                                        ";
  664. 52490 [153]"                waitnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew*new";
  665. 52500 [153]"                wait*newrnd waitgetnewnew waitsinnewcos wait*newcos waitgetnewsin   get ";
  666. 52510 [153]"                get*cos waitget   get   get   waitget waitget   get ";
  667. 52520 [153]"                wait*sin  waitgetnewcos get   wait*new  waitgetnewcos   get ";
  668. 52530 [153]"                get sin waitgetnewnew sinnewrnd waitlognewrnd waitget     get ";
  669. 52540 [153]"                                        ";
  670. 52550 [153]"clr                                       
  671. 52560 poke2023,160:poke56295,4
  672. 52570 return
  673. 52600 print"[147]":poke53280,0:poke53281,0
  674. 52610 print" [196]er [214]erbindungscomputer teilt mit,dass"
  675. 52611 print" [210]ebecca in "c$(r)" gesehen wurde."
  676. 52620 if(peek(56320) and 16)<>0then52620
  677. 52630 return
  678. 52700 poke53280,0:poke53281,0:poke53272,23:print"[147]";:a$=chr$(34)+chr$(34)+chr$(20)
  679. 52710 print"                  [217][207] !!
  680. 52720 [153]"                --------
  681. 52730 print"
  682. 52740 [153]"   printNach langem Suchen hast Du endlich
  683. 52750 print"
  684. 52760 [153]"   Rebecca gefunden.Bravo! Aber jetzt
  685. 52770 print"
  686. 52780 [153]" faengt die Arbeit erst richtig an.Sie
  687. 52790 print"
  688. 52800 [153]"sagt,dass Sie den Ring mit dem Mikrofilm";
  689. 52810 [153]"
  690. 52820 print" an einen Mann Namens Jeremy Flynn [153]wei-
  691. 52830 [153]"
  692. 52840 print"tergegeben habe.Deine zweite Aufgabe ist";
  693. 52850 print"
  694. 52860 [153]"es nun,mit Hilfe des CIA-Central Compu-
  695. 52870 print"
  696. 52880 [153]" ters zu erforschen,durch wessen Haende
  697. 52890 print"
  698. 52900 [153]"         der ascilm gegangen ist.
  699. 52910 print"                [158][162][162][162][154][162][162][158][162][162][162]
  700. 52920 [153]"             new  newnewnewnewnewnewnewnew  waitnew
  701. 52930 print"            [161] [146]             [146][161]
  702. 52940 [153]"             new  waitnewnewnewnewnewnewnewnew  newwait
  703. 52950 print"                [162][162][162][162][162][162][162][162][146]"
  704. 52960 if(peek(56320) and 16)<>0then52960
  705. 52970 return
  706. 60000 poke53280,6:poke53281,6:poke53272,23:print"[147]";:a$=chr$(34)+chr$(34)+chr$(20)
  707. 60010 print"
  708. 60020 [153]"        **rndwaitrnd                    getwaitget
  709. 60030 print"        [188][188][146][162] [161][146][161][161][146][161][161][172][187][146][187][172][172][187][146][187][161][172][187][146][187]    [161][146][161]
  710. 60040 [153]"        *rndgetwaitgetgetwaitgetgetwaitgetgetlogcoswaitcosget*newwaitcosgetwaitget
  711. 60050 print"         [162][162][146]  [162][162][146][190][161][146][161]   [162][162][146] [188][190]      [188][190]
  712. 60060 [153]"    sysfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre
  713. 60070 print"    [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  714. 60080 [153]"
  715. 60090 print" [144]Du hast den Test hinter Dir.Alle Auf-
  716. 60100 [153]"
  717. 60110 print"   gaben sind geloest worden.Aufgrund
  718. 60120 [153]"
  719. 60130 print"   [196]einer [197]rgebnisse kann man sagen :
  720. 60140 [153]"
  721. 60150 print" das war
  722. 60160 [153]"
  723. 60170 print"
  724. 60180 [153]"
  725. 60190 print"
  726. 60200 [153]"
  727. 60210 print"
  728. 60220 [153]"
  729. 60230 print"
  730. 60240 [153]"
  731. 60250 print""
  732. 60260 return
  733.